﻿Public Class frmCot_Anexos
    Private Sub frmCot_Anexos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStrip1.Cursor = Cursors.Hand
        ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System

        txtFile.Clear()
        txtDescripcion.Clear()
        txtDescripcion.Focus()

        txtFile.Enabled = False
        lblStatus.Text = BuscarIntDatoCitra("SELECT COUNT(*) FROM Cot_Anexos WHERE IdGeneral=" & IdGeneral) & " archivos adjutos..."
    End Sub
    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        Call SetSqlCitra("DELETE FROM Cot_Anexos WHERE IdGeneral=" & IdGeneral)
        lblStatus.Text = BuscarIntDatoCitra("SELECT COUNT(*) FROM Cot_Anexos WHERE IdGeneral=" & IdGeneral) & " archivos adjutos..."
    End Sub
    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        If txtDescripcion.Text = "" Then
            MsgBox("Debes indicar una descripción para el archivo", MsgBoxStyle.Exclamation, "Aviso")
            Exit Sub
        End If
        Dim Anexos As New clsCot_Anexos

        Dim IdAnexo As Integer = BuscarIntDatoCitra("SELECT IdAnexo FROM Cot_anexos WHERE UPPER(Descripcion)='" & UCase(txtDescripcion.Text) & "' AND IdGeneral=" & IdGeneral)
        If IdAnexo > 0 Then
            MsgBox("Ya existe un archivo con ese nombre en esta cotización", MsgBoxStyle.Exclamation, "Aviso")
            Exit Sub
        End If

        Anexos.IdGeneral = IdGeneral
        Anexos.Anexo = txtFile.Text
        Dim Archivo As String() = txtFile.Text.Split("."c)
        Anexos.Nombre = Archivo(0)
        Anexos.Extencion = Archivo(1)
        Anexos.Descripcion = txtDescripcion.Text

        Anexos.Insertar()

        lblStatus.Text = BuscarIntDatoCitra("SELECT COUNT(*) FROM Cot_Anexos WHERE IdGeneral=" & IdGeneral) & " archivos adjutos..."
        txtFile.Clear()
        txtDescripcion.Clear()
        txtDescripcion.Focus()

    End Sub
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Close()

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oFD As New OpenFileDialog
        With oFD
            .Title = "Seleccionar fichero"
            .Filter = "Ficheros de texto (*.xls;*.xlsx;*.doc;*.docx,;*.pdf;*.jpge)|*.xls;*.xlsx;*.doc;*.docx,;*.pdf;*.jpge" & _
                    "|Todos los ficheros (*.*)|*.*"
            .FileName = Me.txtFile.Text
            If .ShowDialog = System.Windows.Forms.DialogResult.OK Then
                Me.txtFile.Text = .FileName
            End If
        End With
    End Sub
End Class